*Relative Polarization*
*Supplemental Appendix*

*****
***Table SA.1 
*descriptive statistics*

*pooled 2012 and 2017*
sum turnout_2 indifference_2  e2012 turnout_1 if turnout_2~=. & indifference_2~=. &  turnout_1~=.
sum mindist_2 e2012 turnout_1 if turnout_2~=. & mindist_2~=. &  turnout_1~=.
sum chgturnout change_indifference if chgturnout~=. &  change_indifference~=.
sum  change_mindist if chgturnout~=. & change_mindist~=.
sum turnout_2 polarization_2  e2012 turnout_1 if turnout_2~=. & polarization_2~=. &  turnout_1~=.


*Figures*
logit turnout_2 c.mindist_2##c.indifference_2 e2012 turnout_1 [pweight=demographic_weight], r
outreg2 using table3_pooled.doc, replace alpha(0.001, 0.01, 0.05)

margins, dydx(indifference_2) at(mindist_2=(0(1)10)) predict(xb)
marginsplot, x(mindist_2)  recast(line) yline(0) title("") xtitle("Alienation in Round 2") ytitle("Marginal Effect of Party Spread")

margins, dydx(mindist_2) at(indifference_2=(0(1)10)) predict(xb)
marginsplot, x(indifference_2)  recast(line) yline(0) title("") xtitle("Party Spread in Round 2") ytitle("Marginal Effect of Alienation")


logit turnout_2 c.indifference_2##c.mindist_2 e2012 turnout_1 [pweight=demographic_weight] if equidist==1, r
outreg2 using table3_pooled.doc, append alpha(0.001, 0.01, 0.05)

set level 95
margins, dydx(indifference_2) at(mindist_2=(0(1)10)) predict(xb) 
marginsplot, x(mindist_2)  recast(line) yline(0) title("") xtitle("Alienation in Round 2") ytitle("Marginal Effect of Party Spread")


margins, dydx(mindist_2) at(indifference_2=(0(1)10)) predict(xb)
marginsplot, x(indifference_2)  recast(line) yline(0) title("") xtitle("Party Spread in Round 2") ytitle("Marginal Effect of Alienation")

*no equidistant voters*
logit turnout_2 c.indifference_2##c.mindist_2 e2012 turnout_1 [pweight=demographic_weight] if equidist==0, r
outreg2 using table3_pooled.doc, append alpha(0.001, 0.01, 0.05)
set level 95
margins, dydx(indifference_2) at(mindist_2=(0(1)10)) predict(xb) 
marginsplot, x(mindist_2)  recast(line) yline(0) title("") xtitle("Alienation in Round 2") ytitle("Marginal Effect of Party Spread")


margins, dydx(mindist_2) at(indifference_2=(0(1)10)) predict(xb)
marginsplot, x(indifference_2)  recast(line) yline(0) title("") xtitle("Party Spread in Round 2") ytitle("Marginal Effect of Alienation")

*Figure SA.7*
*Model 2*
logit turnout_2  polarization_2  e2012 turnout_1 [pweight=demographic_weight], r
margins, at(polarization_2=(0(1)10)) atmeans vsquish post
marginsplot, xtitle ("Relative Polarization") ytitle("Probability of Turnout in Round 2") title(" ")


*Robustness checks*
*disag by election*

*Table SA.3a*
*2012*
*Polarization (indifference)*
logit turnout_2 indifference_2 turnout_1 if e2012==1 [pweight=demographic_weight], r
outreg2 using SATable3.doc, replace alpha(0.001, 0.01, 0.05)
*change in indifference*
mlogit chgturnout change_indifference if e2012==1 [pweight=demographic_weight], r
outreg2 using SATable2.doc, append alpha(0.001, 0.01, 0.05)
*Alienation*
logit turnout_2 mindist_2 turnout_1  if e2012==1 [pweight=demographic_weight], r
outreg2 using SATable2.doc, append alpha(0.001, 0.01, 0.05)
*change in alienation*
mlogit chgturnout change_mindist if e2012==1 [pweight=demographic_weight], r
outreg2 using SATable2.doc, append alpha(0.001, 0.01, 0.05)


*Table SA.3b*
*2017*
*Polarization (indifference)*
logit turnout_2 indifference_2 turnout_1 if e2012==0 [pweight=demographic_weight], r
outreg2 using SATable2_2017.doc, replace alpha(0.001, 0.01, 0.05)
*change in indifference*
mlogit chgturnout change_indifference if e2012==0 [pweight=demographic_weight], r
outreg2 using SATable2_2017.doc, append alpha(0.001, 0.01, 0.05)
*Alienation*
logit turnout_2 mindist_2 turnout_1  if e2012==0 [pweight=demographic_weight], r
outreg2 using SATable2_2017.doc, append alpha(0.001, 0.01, 0.05)
*change in alienation*
mlogit chgturnout change_mindist if e2012==0 [pweight=demographic_weight], r
outreg2 using SATable2_2017.doc, append alpha(0.001, 0.01, 0.05)

*Table SA.4*
**interactive 2012*
logit turnout_2 c.mindist_2##c.indifference_2 turnout_1 if e2012==1 [pweight=demographic_weight], r
outreg2 using table3_SA2012.doc, replace alpha(0.001, 0.01, 0.05)
**interactive 2017*
logit turnout_2 c.mindist_2##c.indifference_2 turnout_1 if e2012==0 [pweight=demographic_weight], r
outreg2 using table3_SA2017.doc, replace alpha(0.001, 0.01, 0.05)



*Table SA.5*
*rel pol by year*
*2012*
logit turnout_2  polarization_2  if e2012==1 [pweight=demographic_weight], r
outreg2 using SAtable5apooled.doc, replace alpha(0.001, 0.01, 0.05)
logit turnout_2  polarization_2  turnout_1  if  e2012==1 [pweight=demographic_weight], r
outreg2 using SAtable5apooled.doc, append alpha(0.001, 0.01, 0.05)

*2017*
logit turnout_2  polarization_2 if e2012==0 [pweight=demographic_weight], r
outreg2 using SAtable5bpooled.doc, replace alpha(0.001, 0.01, 0.05)
logit turnout_2  polarization_2 turnout_1  if e2012==0 [pweight=demographic_weight], r
outreg2 using SAtable5bpooled.doc, append alpha(0.001, 0.01, 0.05)


*Table SA.6*
*rare events logit for Table 2 models 1 and 3*
relogit turnout_2 indifference_2 turnout_1 e2012 [pweight=demographic_weight]
outreg2 using SAtable6.doc, replace alpha(0.001, 0.01, 0.05)
relogit turnout_2 mindist_2 turnout_1 e2012 [pweight=demographic_weight]
outreg2 using SAtable6.doc, append alpha(0.001, 0.01, 0.05)

*Table SA.7*
*rare events logit Table 4*
relogit turnout_2 polarization_2 e2012 [pweight=demographic_weight]
outreg2 using SAtable6.doc, replace alpha(0.001, 0.01, 0.05)
relogit turnout_2  polarization_2  turnout_1 e2012 [pweight=demographic_weight]
outreg2 using SAtable6.doc, append alpha(0.001, 0.01, 0.05)


*Table SA.8*
*logit for Table 2 change models 2 and 4*
logit chgturnout change_indifference e2012 [pweight=demographic_weight], r
outreg2 using SAtable7pooled.doc, replace alpha(0.001, 0.01, 0.05)
logit chgturnout change_mindist e2012 [pweight=demographic_weight], r
outreg2 using SAtable7pooled.doc, append alpha(0.001, 0.01, 0.05)


*Table SA.9a*
*adding socio-demographic controls*
*model 2*
logit turnout_2 indifference_2 e2012 GEND AGE Edu_dummy Sat_Eco INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8.doc, replace alpha(0.001, 0.01, 0.05)
*model 3*
logit turnout_2 mindist_2 e2012 GEND AGE Edu_dummy Sat_Eco INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8.doc, append alpha(0.001, 0.01, 0.05)
*Model 1*
logit turnout_2 polarization_2 e2012 GEND AGE Edu_dummy Sat_Eco INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8.doc, append alpha(0.001, 0.01, 0.05)


*Table SA.9b*
*redo without perception of state of the economy*
*model 2*
logit turnout_2 indifference_2 e2012 GEND AGE Edu_dummy INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8b.doc, replace alpha(0.001, 0.01, 0.05)
*model 3*
logit turnout_2 mindist_2 e2012 GEND AGE Edu_dummy INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8b.doc, append alpha(0.001, 0.01, 0.05)
*Model 1*
logit turnout_2 polarization_2 e2012 GEND AGE Edu_dummy INCM RELG [pweight=demographic_weight], r
outreg2 using SATable8b.doc, append alpha(0.001, 0.01, 0.05)

